home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / musik / MIDIFP21 / SOURCES / MIDI_PRT / INFO / INFO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-24  |  4.3 KB  |  156 lines
  1. /**************************************************************
  2. *
  3. *                INFO.C
  4. *
  5. **************************************************************/
  6.  
  7. #include <acs.h>
  8. #include <acsplus.h>
  9. #include <string.h>
  10. #include <stdlib.h>
  11. #include <messages.pif>   /* for use of self-built library */
  12. #include <acs_plus.pif>   /* for use of self-built library */
  13. #include <servimem.pif>   /* for use of self-built library */
  14.  
  15. #include "info.pif"
  16. #include "info.h"
  17. #include "info.ah"
  18.  
  19.  
  20. /*******************************************************************
  21. */
  22.     static void keys(Awindow *wi, int kstate, int key)
  23. /*
  24. *   Keyboard procedure of the info window. See also ACS manual.
  25. *
  26. *******************************************************************/
  27. {
  28.     /*** inform other windows about key pressure ***/
  29.     key_message.sender = wi ;
  30.     key_message.kstate = kstate ;
  31.     key_message.key    = key ;
  32.     Awi_sendall(KEY_PRESS, &key_message) ;
  33.  
  34.     /*** forward event to ACS for further treatment (e.g. by the desktop) ***/
  35.     Awi_keys(wi, kstate, key) ;
  36. }
  37.  
  38.  
  39. /*******************************************************************
  40. */
  41.     static int service(Awindow *wi, int task, void *not_used)
  42. /*
  43. * Service routine for messages sent to this window.
  44. * See also ACS manual.
  45. * 
  46. * OUTPUT:  AS_TERM ==> message is forwarded to parent
  47. *          AS_INFO ==> a little help function 
  48. * 
  49. *******************************************************************/
  50. {
  51.     switch (task)
  52.     {    
  53.         case AS_TERM: Awi_sendall(TERMINATE, wi) ; break ; 
  54.         case AS_INFO: A_dialog(&INFO_INFO) ; break ;
  55.         default:      return FALSE ;
  56.     }
  57.     return TRUE ;    /* task has been treated */
  58. }
  59.  
  60.  
  61. /*******************************************************************
  62. *
  63. *                  PUBLISHED INTERFACE
  64. *
  65. *******************************************************************/
  66.  
  67.  
  68. void set_transformed_size(Awindow *wi, long transformed_size)
  69. { 
  70.     ltoa( transformed_size >> 10 /* in units of 1024 Byte */, 
  71.           wi->work[TRANSFORMED_SIZE].ob_spec.tedinfo->te_ptext, 10) ;
  72.     Awi_obchange(wi, TRANSFORMED_SIZE, 
  73.           wi->work[TRANSFORMED_SIZE].ob_state &= ~DISABLED) ;
  74. }
  75.  
  76.  
  77. unsigned int get_number_of_tracks(Awindow *wi)
  78. { return atoi( wi->work[NUMBER_OF_TRACKS].ob_spec.tedinfo->te_ptext ) ; }
  79.  
  80.  
  81. int get_ticks_per_beat(Awindow *wi)
  82. { return atoi( wi->work[TICKS_PER_BEAT].ob_spec.tedinfo->te_ptext ) ; }
  83.  
  84.  
  85. int get_SMPTE(Awindow *wi)
  86. {
  87.     if ( wi->work[SMPTE].ob_state & DISABLED ) return FALSE ;
  88.     else return TRUE ;
  89. }
  90.  
  91.  
  92. void INFO_destructor(Awindow *wi)
  93. { 
  94.     if (wi) 
  95.     {
  96.         memory_symptom = "InDstr wi" ; 
  97.         Awi_delete(wi) ; 
  98.     }
  99. }
  100.  
  101.  
  102. Awindow *INFO_constructor(INFO_INIT *info_init)
  103. {
  104. Awindow *wi ;
  105. char MThd[5] = "MThd" ;
  106. unsigned int division = 0 ; 
  107.  
  108.     /*** enter filename into icon text ***/
  109.     INFO_WINDOW.iconblk = info_init->icon ;
  110.     INFO_WINDOW.iconblk->monoblk.ib_ptext = 
  111.     INFO_WINDOW.info = info_init->filename ;
  112.  
  113.     /*** create the INFO window ***/
  114.     wi = Awi_create(&INFO_WINDOW) ;
  115.     if (!wi) return NULL ;
  116.  
  117.     /*** already known data, enter into GEM-object ***/
  118.     ltoa( info_init->filesize >> 10 /* in units of 1024 Byte */, 
  119.          wi->work[FILE_SIZE].ob_spec.tedinfo->te_ptext, 10 ) ;
  120.     /*** evaluate header chunk ***/
  121.     if ( memcmp(MThd, info_init->RAM_file, 4) )
  122.     {
  123.         /*** no correct MIDI file format ***/
  124.         alert_str(INVALID_FORMAT, wi->iconblk->monoblk.ib_ptext) ;
  125.         INFO_destructor(wi) ;
  126.         return NULL ;
  127.     }
  128.     /*** continue evaluating header chunk: ***/
  129.     /*** type of MIDI file ***/
  130.     itoa( read_int(info_init->RAM_file + 4 + 4), 
  131.        wi->work[MIDI_FILE_TYPE].ob_spec.tedinfo->te_ptext, 16 ) ;
  132.     /*** number of tracks in MIDI file ***/
  133.     itoa( read_int(info_init->RAM_file + 4 + 4 + 2), 
  134.        wi->work[NUMBER_OF_TRACKS].ob_spec.tedinfo->te_ptext, 10 ) ;
  135.     /*** time division ***/
  136.     division = read_int(info_init->RAM_file + 4 + 4 + 2 + 2) ;
  137.     if (division & 0x1000)
  138.     {
  139.         /*** SMPTE format ***/
  140.         wi->work[TICKS_PER_BEAT].ob_state |= DISABLED ;
  141.         itoa( (-division) >> 8, wi->work[SMPTE].ob_spec.tedinfo->te_ptext, 10 ) ;
  142.         itoa( division & 0xff, wi->work[TICKS_PER_FRAME].ob_spec.tedinfo->te_ptext, 10 ) ;
  143.     }
  144.     else 
  145.     {
  146.         /*** non-SMPTE format ***/
  147.         wi->work[SMPTE].ob_state |= DISABLED ;
  148.         wi->work[TICKS_PER_FRAME].ob_state |= DISABLED ;
  149.         itoa( division, wi->work[TICKS_PER_BEAT].ob_spec.tedinfo->te_ptext, 10 ) ;
  150.     }
  151.     /*** return success message ***/
  152.     return wi ;
  153. }
  154.  
  155.  
  156.